Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

56 lines
1.2 KiB

  1. <?xml version="1.0" encoding="iso-8859-1"?>
  2. <!-- simple xslt file: sce_inf.xsl -->
  3. <xsl:stylesheet
  4. version="1.0"
  5. xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
  6. xmlns:msxsl="urn:schemas-microsoft-com:xslt"
  7. xmlns:ssr="http://microsoft.com/sce/ssr"
  8. >
  9. <xsl:import href="../CommonLib/ExtFunctions.xsl"/>
  10. <xsl:output method="text" indent="no"/>
  11. <xsl:template match="/SSRSecurityPolicy/Services">
  12. <![CDATA[
  13. <job id="SsrSceConfigure">
  14. <reference object="SSR.SsrCore"/>
  15. <script language="VBScript">
  16. ]]>
  17. Option Explicit
  18. On Error Resume Next
  19. DIM Sce
  20. Set Sce = CreateObject("Ssr.SCEAgent")
  21. If Err.Number &lt;&gt; 0 Then
  22. WScript.Echo "Failed to create SSR.SCEAgent object."
  23. WScript.Quit Err.Number
  24. End If
  25. <xsl:variable name="inf" select="ssr:GetFileLocation('Configure', 'SCE.inf')"/>
  26. <xsl:variable name="log" select="ssr:GetFileLocation('Configure', 'SCE-Configure.log')"/>
  27. Sce.Configure "<xsl:value-of select="$inf"/>", 65535, "<xsl:value-of select="$log"/>"
  28. If Err.Number &lt;&gt; 0 Then
  29. WScript.Echo "Sce.Configure failed."
  30. WScript.Quit Err.Number
  31. End If
  32. <![CDATA[
  33. </script>
  34. </job>
  35. ]]>
  36. </xsl:template>
  37. </xsl:stylesheet>